Class Foo
    Public a
    Public b

    Private Sub Class_Initialize
        a = 1
        b = 2
    End Sub
End Class

Set obj = New Foo

num = 0

For i = 0 To 1000000
    num = num + obj.a + obj.b
Next

WScript.Echo num
